Catagory.cls

Language: Visual Basic Class
Last Modified: 2020-06-27 1:58:30 PM UTC
File Size: 737 bytes

http://www.penguinstew.ca/example/ExcelSQLExport/Catagory.cls

VERSION 1.0 CLASS

BEGIN

MultiUse = -1 'True

END

Attribute VB_Name = "Catagory"

Attribute VB_GlobalNameSpace = False

Attribute VB_Creatable = False

Attribute VB_PredeclaredId = False

Attribute VB_Exposed = False

Public CatagoryId As Integer

Public Name As String

Public colour As String

Public ToAccount As Integer

Public FromAccount As Integer

Public InUse As Boolean

Public IsSystem As Boolean

Public Function ToSQL() As String

ToSQL = "INSERT INTO [Categories]([CategoryId],[Name],[Colour],[ToAccount],[FromAccount],[InUse],[IsSystem]) VALUES (" & Me.CatagoryId & " ,'" & Me.Name & "','" & Me.colour & "'," & Me.ToAccount & "," & Me.FromAccount & ",'" & Me.InUse & "','" & Me.IsSystem & "')"

End Function